COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	{ initial declarations for POINTY }
C00005 ENDMK
C⊗;
{ initial declarations for POINTY }
			{ scalars }
DEG←1.0;
DEGREE←1.0;
DEGREES←1.0;
INCHES←1.0;
INCH←1.0;
CM←(1.0/2.54);

			{ vectors }
XHAT←VECTOR(1,0,0);
ZHAT←VECTOR(0,0,1);
YHAT←VECTOR(0,1,0);
NILVECT←VECTOR(0,0,0);

			{ rotation }

NILROT←ROT(XHAT,0);

			{ transes }

NILTRANS←TRANS(NILROT,NILVECT);


			{ frames }

{ STATION←FRAME(NILROT,NILVECT); }

FRAME BPARK,YPARK;
YPARK←FRAME(ROT(YHAT,180.0),VECTOR(40.0,14.0,9.0));
BPARK←FRAME(ROT(YHAT,180.0),VECTOR(43.53125,56.855,9.95875));
FRAME BGRASP;
{FRAME POINTER,YPOINTER;}
{keep the following at this end};
FRAME BARM,YARM;
SCALAR BHAND,YHAND;

AFFIX BGRASP TO BARM AT TRANS(ROT(XHAT,-180),NILVECT);
{
AFFIX POINTER TO BARM AT TRANS(ROT(ZHAT,-5.173)*ROT(YHAT,13.2)*ROT(ZHAT,-.417),
			VECTOR(.0121,.119,3.75));
}
			{ macros }
DEFINE NILROTN = ⊂NILROT⊃;
DEFINE NILVEC  = ⊂NILVECT⊃;
DEFINE NILVECTOR = ⊂NILVECT⊃;

	{ following is end marker }
_____END____INIT